1 REM POP-UP DEMO. CMB/64....L.JACK. 1986
5 C=C+1:IFC=1THENLOAD"BPOP",8,1
10 N=3:GOSUB500
20 POKE679,0:SYS49152:REM STORE CURRENT SCREEN
30 L=6:W=10:C=0:B=1:SA=1238:GOSUB100
40 L=10:W=3:C=7:B=2:SA=1106:GOSUB100
50 L=4:W=18:C=11:B=3:SA=1388:GOSUB100
60 POKE679,1:SYS49152:REM RECOVER ORIGINAL SCREEN
70 END
100 REM POKE IN PARAMETERS & CALL M/C
110 POKE679,L:POKE680,W:POKE681,C:POKE682,41-W:GOSUB200
120 POKE252,A(0):POKE251,A(1):POKE253,A(1):POKE254,A(0)+212
130 SA=BOX(B):GOSUB200:SYS49251:W=W-2
140 POKE253,A(1):POKE254,A(0):POKE682,41-W:SYS49404
150 GETY$:IFY$<>"C"THEN150
160 RETURN
200 A(0)=INT(SA/256):A(1)=SA-A(0)*256:RETURN
500 AD=49461:FORK=1TON
510 BOX(K)=AD
520 READA$:FORJ=1TOLEN(A$):P=ASC(MID$(A$,J,1))
530 IFP=42THEN550
534 IFP>64THENP=P-64
540 POKEAD,P:AD=AD+1:NEXTJ
550 NEXTK:RETURN
560 DATA"HERE'S A POP-UP  TESTER PRESS C *"
565 DATA"PRESS C *"
570 DATA"O.K. NOW RESTORESCREEN...PRESS C*"